home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / LP.LSP < prev    next >
Text File  |  1992-09-13  |  216b  |  10 lines
  1. ;Load a lisp file in the default directory.
  2. ;
  3. ;
  4. (defun c:LP()
  5. (PRINC "Name of lisp file to load: <")
  6. (PRINC *lf1)
  7. (SETQ lf1(GETSTRING ">: "))
  8. (IF(= lf1 "")(SETQ lf1 *lf1)(SETQ *lf1 lf1))
  9. (load lf1)
  10. (princ))